home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / CURSOR.SWG / 0013_Spinning Cursor.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  518b  |  34 lines
  1. {
  2. SEAN PALMER
  3.  
  4. This is an example for the cursor I talked about to someone on here...
  5. }
  6.  
  7. program spinCursor;
  8.  
  9. uses
  10.   crt;
  11.  
  12. var
  13.   cursorState : byte;  {0..3}
  14.   i           : integer;
  15.  
  16. const
  17.   cursorData : array [0..3] of char = (#30, #17, #31, #16);
  18.  
  19. procedure updateCursor;
  20. begin
  21.   cursorState := succ(cursorState) and 3;
  22.   write(cursorData[cursorState], ^H);
  23. end;
  24.  
  25. begin
  26.   for i := 1 to 100 do
  27.   begin
  28.     gotoxy(1,1);
  29.     updateCursor;
  30.     gotoxy(1,41);
  31.     delay(100);
  32.   end;
  33. end.
  34.